unit ufTask_Property_ActionCustom;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uTasks;

type
  TTfTask_Property_ActionCustom = class(TFrame)
  private
    FPrepared: boolean;
  protected
    FStep: TStep;
  public
    constructor Create(AOwner: TComponent); override;

    procedure Prepare(AStep: TStep); virtual;
    procedure Save; virtual;
    procedure BeforeClose(); virtual;
    procedure Check; virtual;

    property Prepared: boolean read FPrepared;
  end;

  TfTask_Property_ActionCustomClass = class of TTfTask_Property_ActionCustom;


implementation

{$R *.dfm}

{ TTfTask_Property_ActionCustom }

procedure TTfTask_Property_ActionCustom.BeforeClose;
begin

end;

procedure TTfTask_Property_ActionCustom.Check;
begin
end;

constructor TTfTask_Property_ActionCustom.Create(AOwner: TComponent);
begin
  inherited;
  FStep:= nil;
end;

procedure TTfTask_Property_ActionCustom.Prepare(AStep: TStep);
begin
  FStep:= AStep;
  FPrepared:= True;
end;

procedure TTfTask_Property_ActionCustom.Save;
begin
end;

end.
